Apple Reference & Presen…tion Library 4 (Reseller)/Apple Ref. & Pres. Lib.v4.0.iso/6-Apple⁄DEC Alliance/Solutions & Networking Guide/Macintosh Networking Guide/Macintosh Networking Guide/card_9612.txt

Text File | 1990-04-17 | 11KB | 484 lines

-- card: 9612 from stack: in
-- bmap block id: 9810
-- flags: 0000
-- background id: 2585
-- name: elevatoropen


-- part 40 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=236 top=82 right=106 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 8 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=177 top=0 right=23 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 18
-- style flags: 16384
-- line height: 21
-- part name: currentFloor


-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=136 top=40 right=304 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global currentfloor
  set cursor to busy
  set lockscreen to true
  go to cd "Lobby"
  show cd button "ElevatorThing"
  unlock screen with dissolve
  wait 30
  play "22"
  hide cd button "ElevatorThing"
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  global Help
  put "Connectivity Lobby" & return & "click to enter lobby" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave




-- part 10 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=3 top=133 right=192 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 10
-- style flags: 16384
-- line height: 13
-- part name: Destination
----- HyperTalk script -----
on mouseUp
  global env,floor,nextFloor,currentFloor,lastFloor
  set cursor to busy
  --∆ Set flag for use in "ElevatorAction" routine
  put currentFloor into lastFloor
  --∆ select and highlight line, customize argument for field number
  put line SelectionAndHiliter(1) of me into nextFloor
  put SelectionAndHiliter() into nextFloorNum
  hide cd button (currentFloor & "Hiliter")
  --∆ Close elevator doors
  set lockscreen to true
  go to cd "elevatorKlosed"
  --∆ Set lights over door in closed elevator
  set the hilite of btn "3  Applications" to false
  set the hilite of btn "2  Network Services" to false
  set the hilite of btn "1  Hardware" to false
  set the hilite of btn "0  Lobby" to false
  set the hilite of button currentFloor to true
  --∆ Set level indicator in closed elevator
  hide cd button "3  ApplicationsHiliter"
  hide cd button "2  Network ServicesHiliter"
  hide cd button "1  HardwareHiliter"
  hide cd button "0  LobbyHiliter"
  show cd button (nextFloor & "Hiliter")
  --∆ Show the environment chosen in lobby
  put env into envTemp
  if env is "Mac" then put "Macintosh" into envTemp
  put envTemp into cd field "envName"
  --∆ Display the floor
  put currentFloor into cd field "currentFloor"
  play "22"
  unlock screen with visual barn door close
  --• to simulate the door closing before arriving
  --• at destination JONATHAN
  wait 20
  elevatorAction
  put line nextFloorNum of cd fld destination into currentFloor
  wait 20
  --∆ Show arrival at chosen floor
  set the lockscreen to true
  if currentFloor is "0  Lobby" then
    go to cd "elevatoropen"
  else
    go to cd "elevatoropenHall"
  end if
  --∆ Set lights over door in open elevator
  set the hilite of btn "3  Applications" to false
  set the hilite of btn "2  Network Services" to false
  set the hilite of btn "1  Hardware" to false
  set the hilite of btn "0  Lobby" to false
  set the hilite of button currentFloor to true
  --∆ Set level indicator in open elevator
  hide cd button "destinationHiliter"
  hide cd button "3  ApplicationsHiliter"
  hide cd button "2  Network ServicesHiliter"
  hide cd button "1  HardwareHiliter"
  hide cd button "0  LobbyHiliter"
  show cd button (nextFloor & "Hiliter")
  --∆ Show floor name over door & env over level selector
  put currentFloor into cd field "currentFloor"
  put envTemp into cd field "envName"
  play "22"
  unlock screen with visual barn door open
  wait 20
  --∆ Exit the elevator
  set lockScreen to true
  if currentFloor is "0  Lobby" then
    go to cd "lobby"
    show cd button "ElevatorThing"
    wait 20
    play "22"
    hide cd button "ElevatorThing"
  else
    go to cd "hallway1"
  end if
  unlock screen with visual dissolve
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave

on mouseEnter
  put "Elevator Button" & return & "please click on a floor" into field "Tell"
  changeCurs 6069
end mouseEnter


-- part 11 (button)
-- low flags: 00
-- high flags: 6000
-- rect: left=178 top=23 right=35 bottom=193
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 0  Lobby


-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=222 top=23 right=35 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1  Hardware


-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=270 top=22 right=34 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2  Network Services


-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=317 top=23 right=35 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3  Applications


-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=396 top=105 right=171 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: kiosk
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  set cursor to busy
  put empty into field "Explainer"
  push card
  go to cd "matrix"
  unlock screen with dissolve
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseEnter
  put "Matrix Button" & return & "use matrix navigation" into fld "Tell"
  ChangeCurs 6069
end mouseEnter

on mouseLeave
  put empty into field "Tell"
  changeCurs 69
end mouseleave

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
end mouseLeave

on mouseEnter
  put "'Kiosk' Button" & return & "goes to the Kiosk" into field "Tell"
end mouseEnter


-- part 22 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=3 top=105 right=128 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 14
-- style flags: 16640
-- line height: 18
-- part name: EnvName


-- part 35 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=4 top=164 right=178 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1  Hardwarehiliter
----- HyperTalk script -----
on mouseEnter
  global Help
  put "Level Indicator" & return & "you are now at this level" into fld "Tell"
end mouseEnter

on mouseleave
  put empty into fld "Tell"
end mouseLeave



-- part 37 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=4 top=151 right=165 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2  Network Serviceshiliter
----- HyperTalk script -----
on mouseEnter
  global Help
  put "Level Indicator" & return & "you are now at this level" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 38 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=4 top=138 right=152 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3  Applicationshiliter
----- HyperTalk script -----
on mouseEnter
  global Help
  put "Level Indicator" & return & "you are now at this level" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 39 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=4 top=177 right=191 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 0  LobbyHiliter
----- HyperTalk script -----
on mouseEnter
  global Help
  put "Level Indicator" & return & "you are now at this level" into fld "Tell"
end mouseEnter

on mouseleave
  put empty into fld "Tell"
end mouseLeave



-- part 42 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=0 top=0 right=28 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 18
-- style flags: 2048
-- line height: 24
-- part name:


-- part 43 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=333 top=0 right=27 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Title bar


-- part 44 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=4 top=138 right=152 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: destinationHiliter
----- HyperTalk script -----
on mouseEnter
  global Help
  put "Level Indicator" & return & "you are now at this level" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part contents for card part 10
----- text -----
3  Applications
2  Network Services
1  Hardware
0  Lobby

-- part contents for card part 8
----- text -----
0  Lobby

-- part contents for card part 40
----- text -----
Connectivity Lobby


-- part contents for card part 42
----- text -----
  Inside Elevator

-- part contents for card part 22
----- text -----
Digital